home *** CD-ROM | disk | FTP | other *** search
/ Data Base of the Video Yearbook 1995 / Data Base of the Video Yearbook 1995 - Disc 1.iso / cosmos / aiuew.dir / 00003_É^ÉCÉgÉãï .ls < prev    next >
Encoding:
Text File  |  1995-12-21  |  1.4 KB  |  41 lines
  1. on mouseUp
  2.   global numb, kenname, kennamer, mydatebase, sdata, tkazu, taidata
  3.   set mline to mouseLine()
  4.   if mline < the number of items in taidata then
  5.     if mline <> -1 then
  6.       put mline, the number of items in taidata
  7.       set the textSize of field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ" to 18
  8.       set tno to value(item mline of taidata)
  9.       put item 2 of line tno of mydatebase into field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  10.       if item 11 of line tno of mydatebase <> "0" then
  11.         put "    " & item 11 of line tno of mydatebase after field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  12.       end if
  13.       set the textSize of field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ" to 18
  14.       updateStage()
  15.     else
  16.       beep()
  17.     end if
  18.   else
  19.     beep()
  20.   end if
  21.   if (mline < the number of items in taidata) or (mline = -1) then
  22.     if doubleClick() then
  23.       if mline <= 0 then
  24.         set i to the number of lines in field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  25.         hilite line i of field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  26.         exit
  27.       end if
  28.       repeat with n = 1 to 2
  29.         set i to the number of lines in field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ" + 1
  30.         hilite line i of field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  31.         hilite line mline of field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  32.       end repeat
  33.       set numb to value(item mline of taidata)
  34.       set kennamer to "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  35.       set kenname to "AIUEW"
  36.       set gatu to value(item 8 of line tno of mydatebase)
  37.       go("N" & numb, "KOBETU" & gatu)
  38.     end if
  39.   end if
  40. end
  41.